Option Explicit
Sub B_Sample051()
    MsgBox Application.StartupPath
End Sub